home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 July / 64er_Magazin_89-07_1989_Markt__Technik_de_Side_A.d64 / leseprogramm neu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  213 b   |  17 lines
  1. 5 a=4
  2. 10 rem lesen der datei
  3. 20 dim a$(4)
  4. 25 dim b$(4)
  5. 30 open1,8,2,"namen,s,w"
  6. 40 for i=1toa
  7. 50 a$(i)=""
  8. 51 get#1,z$
  9. 52 if z$=chr$(13)then60
  10. 53 a$(i)=a$(i)+z$
  11. 54 goto 52
  12. 55 input#1,a$(i)
  13. 60 print a$(i)
  14. 65 print b$(i)
  15. 70 next
  16. 80 close1
  17.